Public Class bans
    Dim client As Net.WebClient

    Private Sub bans_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = client.DownloadString("http://elysnet.no-ip.biz/node/main/ip.php")


----

this will cause antiviruses to Go off, please ingore this, or please do not use.